home *** CD-ROM | disk | FTP | other *** search
/ SGI Varsity Update 1998 August / SGI Varsity Update 1998 August.iso / docs / relnotes / ftn90_fe / ch7.z / ch7
Text File  |  1998-07-29  |  14KB  |  594 lines
  1.  
  2.  
  3.  
  4.                                                - 1 -
  5.  
  6.  
  7.  
  8.                     7.2.1 MIPSpro Fortran 90 Front End Release Notes
  9.  
  10.  
  11.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.                                                - 2 -
  70.  
  71.  
  72.  
  73.                     7.  _B_u_g__F_i_x_e_s
  74.  
  75.  
  76.  
  77.                     7.1  _B_u_g_s__F_i_x_e_d__i_n__M_I_P_S_p_r_o__7_._2_._1
  78.  
  79.                     This chapter briefly describes the bugs that
  80.                     have been fixed in MIPSpro 7.2.1 F90 since
  81.                     release 7.2.  Some of the headings are followed
  82.                     by a Silicon Graphics incident report number.
  83.  
  84.                        +o A bug that can arise only in the presence
  85.                          of Fortran-90 internal procedures and
  86.                          equivalences between variables, under the
  87.                          following conditions:
  88.  
  89.                             +o There exist two variables equivalenced
  90.                               to each other, and
  91.  
  92.                             +o an internal procedure refers to
  93.                               exactly one of the two, and
  94.  
  95.                             +o the containing procedure refers only
  96.                               to the other one.
  97.  
  98.                          Under those conditions, the 7.2MR compiler
  99.                          without the patch may optimize the code for
  100.                          the containing procedure as if a call to
  101.                          the internal procedure could not read or
  102.                          write the equivalenced variables, when in
  103.                          fact it can. Here is an example program
  104.                          demonstrating the failure (taken from the
  105.                          bug report):
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.                                                - 3 -
  136.  
  137.  
  138.  
  139.                          program test4
  140.                             integer     i,k
  141.                             equivalence (i,k)
  142.                             i = 1
  143.                             call s
  144.                             if (i .eq. 5) then
  145.                                 print *, 'pass'
  146.                                 call exit (0)
  147.                             else
  148.                                 print *, 'fail', i
  149.                                 call exit (1)
  150.                             endif
  151.                          contains
  152.                             subroutine s
  153.                                k = 5
  154.                             end subroutine s
  155.                          end program  test4
  156.  
  157.                          For this example program, the failure
  158.                          occurred only at the -O3 optimization
  159.                          level, but in principle it could arise at
  160.                          -O2 as well. (Bug #524653) This has been
  161.                          fixed.
  162.  
  163.                        +o -O3 and/or -pfa fail in a few cases where
  164.                          nested f90 procedures refer to local arrays
  165.                          from the parent procedure. This has been
  166.                          fixed. (Bug #524677)
  167.  
  168.                        +o Wrong answers -O2 with F90 ptrs & common.
  169.                          This has been fixed. (Bug #537859)
  170.  
  171.                          The following test case would produce
  172.                          incorrect results at runtime when compiled
  173.                          at optimization level -O2 and higher.
  174.  
  175.  
  176.  
  177.  
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.                                                - 4 -
  202.  
  203.  
  204.  
  205.                          PROGRAM MAIN
  206.                             interface
  207.                                SUBROUTINE SUB1( OVER1 )
  208.                                   !USE TYPES
  209.                                   INTEGER, POINTER::  OVER1
  210.                                end SUBROUTINE SUB1
  211.                             end interface
  212.                             !USE TYPES
  213.                             INTEGER ,TARGET :: INT2
  214.                             COMMON /WHATEVER/ INT2
  215.  
  216.                             !
  217.                             INTEGER, POINTER :: OVER1
  218.  
  219.                             INT2 = -7
  220.                             OVER1 => INT2
  221.  
  222.                             CALL SUB1( OVER1)
  223.  
  224.                          end PROGRAM MAIN
  225.                          !***********************************************************************
  226.                          SUBROUTINE SUB1( OVER1 )
  227.                             !USE TYPES
  228.                             INTEGER, POINTER::  OVER1
  229.                             INTEGER ,TARGET :: INT2
  230.                             COMMON /WHATEVER/ INT2
  231.                             !
  232.                             !  Should be able to change INT2 using the OVER2%UNDER1 pointer
  233.                             OVER1 = 123
  234.                             IEXPECT = 123
  235.                             IF( INT2 .NE. IEXPECT ) THEN
  236.                                 WRITE(6, '(" Test case 1.13 int pointer failed, expected ",I10, ",&
  237.                                      & got ", I10 )' ) IEXPECT,int2
  238.                             ENDIF
  239.                             print *,'done'
  240.                          end subroutine SUB1
  241.  
  242.                          This has been fixed.
  243.  
  244.                        +o Code that contains internal procedures may
  245.                          not be generated correctly when the -IPA or
  246.                          -INLINE flags are used. Under certain
  247.                          circumstances, internal compiler errors may
  248.                          be generated. (Bug 511830). This has been
  249.                          fixed, but the code generated, while
  250.                          correct, may not be optimal.
  251.  
  252.  
  253.                        +o Bad I/O with INTEGER(1) items in a derived
  254.                          type
  255.  
  256.  
  257.  
  258.  
  259.  
  260.  
  261.  
  262.  
  263.  
  264.  
  265.  
  266.  
  267.                                                - 5 -
  268.  
  269.  
  270.  
  271.                          Bad output was generated when doing I/O on
  272.                          arrays of derived type with integer(1) and
  273.                          integer(2) elements in them. For example:
  274.  
  275.                          %cat iob1.f90
  276.  
  277.                          PROGRAM test
  278.  
  279.                            INTEGER :: i
  280.                            INTEGER, PARAMETER :: numElements = 4
  281.  
  282.                            TYPE mytype
  283.                               INTEGER (KIND=1) :: i1
  284.                            END TYPE mytype
  285.  
  286.                            TYPE(mytype) :: arr(numElements)
  287.  
  288.                            arr(1) = mytype(1)
  289.                            arr(2) = mytype(3)
  290.                            arr(3) = mytype(5)
  291.                            arr(4) = mytype(7)
  292.                            print *,arr
  293.  
  294.                          END PROGRAM test
  295.  
  296.                          %f90 iob1.f90
  297.                          %a.out
  298.                           1,  -1,  -1,  -1
  299.  
  300.                          Correct Output is:
  301.                           1,   3,   5,   7
  302.  
  303.  
  304.  
  305.                          This has been fixed (Bug #523046)
  306.  
  307.  
  308.                        +o The following program would abort when
  309.                          compiled with 7.2 as follows:
  310.  
  311.  
  312.  
  313.  
  314.  
  315.  
  316.  
  317.  
  318.  
  319.  
  320.  
  321.  
  322.  
  323.  
  324.  
  325.  
  326.  
  327.  
  328.  
  329.  
  330.  
  331.  
  332.  
  333.                                                - 6 -
  334.  
  335.  
  336.  
  337.                          %cat x.f90
  338.                                  program test
  339.                                  i = 1
  340.                                  j = 2
  341.                          1030    format(1x,l2)
  342.                                  write(6,1030)i.ne.j
  343.                                  write(6,1030) .not. i.ne.j
  344.  
  345.                          %f90 x.f90
  346.                          %a.out
  347.                            T
  348.  
  349.                          lib-4171 : UNRECOVERABLE library error
  350.                            An output list item is incompatible with its data edit-descriptor.
  351.  
  352.                          Encountered during a sequential formatted WRITE to unit 6
  353.                          Fortran unit 6 is connected to a sequential formatted text file
  354.                            (standard output).
  355.                           Current format:  1030 FORMAT(1x,l2)
  356.                                                           ^
  357.                          IOT Trap
  358.                          Abort (core dumped)
  359.  
  360.  
  361.                          This has been fixed (Bug #526202).
  362.  
  363.  
  364.                        +o F90 printing wrong values for derived type
  365.                          containing char
  366.  
  367.                          The following test program would print
  368.                          wrong values when compiled with 7.2:
  369.  
  370.  
  371.  
  372.  
  373.  
  374.  
  375.  
  376.  
  377.  
  378.  
  379.  
  380.  
  381.  
  382.  
  383.  
  384.  
  385.  
  386.  
  387.  
  388.  
  389.  
  390.  
  391.  
  392.  
  393.  
  394.  
  395.  
  396.  
  397.  
  398.  
  399.                                                - 7 -
  400.  
  401.  
  402.  
  403.                          %cat x.f90
  404.                                  integer ::i
  405.                                  integer, parameter :: numelements = 4
  406.                                  type struct6
  407.                                  character*3::c1
  408.                                  end type struct6
  409.                                  type(struct6) :: arr6(numelements)
  410.                                  arr6(1)%c1 = 'abc'
  411.                                  arr6(2)%c1 = 'def'
  412.                                  arr6(3)%c1 = 'ghi'
  413.                                  arr6(4)%c1 = 'jkl'
  414.                                  print *,arr6
  415.                                  end
  416.  
  417.                          %f90 x.f90
  418.                          abcbcdcdedef
  419.  
  420.                          Correct is: abcdefghijkl
  421.  
  422.  
  423.                          This has been fixed (Bug #526541)
  424.  
  425.                        +o When the CSIN intrinsic function is used as
  426.                          a dummy argument, and the -r8 or -default64
  427.                          switch is specified, the compiler generates
  428.                          an incorrect library entry point. At link
  429.                          time, the symbol x_sin_ will be undefined.
  430.                          This has been fixed. (Bug #707605).
  431.  
  432.  
  433.                     7.2  _B_u_g_s__F_i_x_e_d__i_n__M_I_P_S_p_r_o__7_._2
  434.  
  435.                     This chapter briefly describes the bugs that
  436.                     have been fixed in MIPSpro 7.2 F90 in the
  437.                     compiler since release 7.1.  Some of the
  438.                     headings are followed by a Silicon Graphics
  439.                     incident report number.
  440.  
  441.                        +o Rejecting -p flag
  442.                          The following code would core dump when
  443.                          compiled with -p.
  444.  
  445.                          a = 1.0
  446.                          b = 2.0
  447.                          c = matmul(a,b)
  448.                          print *, c
  449.                          stop
  450.                          end
  451.  
  452.                          As -p is no longer supported; the user
  453.                          should use ssrun -pcsamp, etc. to do pc-
  454.  
  455.  
  456.  
  457.  
  458.  
  459.  
  460.  
  461.  
  462.  
  463.  
  464.  
  465.                                                - 8 -
  466.  
  467.  
  468.  
  469.                          sampling.  The compiler was changed to
  470.                          reject -p with a warning.  (Bug #444089)
  471.  
  472.  
  473.                        +o f90 fails: CVTEXPR-operation_type=72 should
  474.                          not reach IL conversion
  475.                          Under certain circumstances the 7.1 version
  476.                          of f90 would abort with the following
  477.                          error:
  478.  
  479.  
  480.                          CVTEXPR-operation_type=72 should not reach IL conversion.
  481.                           ### fatal error                Internal Error : unexpected type_of_operation
  482.  
  483.  
  484.                           ### Internal Error : unexpected type_of_operation
  485.                           *** while processing routine VIZ_GET_SET_STATS
  486.  
  487.                           *** while processing routine VIZ_GET_SET_STATS
  488.  
  489.                          This has been fixed.  (Bug #455088)
  490.  
  491.  
  492.  
  493.                        +o Internal Error : unexpected
  494.                          type_of_operation with Cray directive
  495.                          Use of Cay style directives (even if
  496.                          commented out) causes the compiler to
  497.                          abort.  This has been fixed.  (Bug #455685)
  498.  
  499.  
  500.                        +o ### Null ST in Make_ID_ND
  501.                          Under certain circumstances, the f90
  502.                          compiler would abort with the following
  503.                          error:
  504.  
  505.  
  506.                          ### Compiler Error (user routine 'transport_') during Front End Driver phase:
  507.                          ### Null ST in Make_ID_ND
  508.                          Signal: SIGSEGV in Front End Driver phase.
  509.  
  510.                          This has been fixed.  (Bug #456246)
  511.  
  512.  
  513.                        +o Internal Error: Not yet translated
  514.                          Under certain circumstances, the f90
  515.                          compiler would abort with the following
  516.                          error:
  517.  
  518.  
  519.  
  520.  
  521.  
  522.  
  523.  
  524.  
  525.  
  526.  
  527.  
  528.  
  529.  
  530.  
  531.                                                - 9 -
  532.  
  533.  
  534.  
  535.                           ### fatal error                Internal Error : Not yet translated
  536.  
  537.  
  538.                           ### Internal Error : Not yet translated
  539.  
  540.                          This has been fixed.  (Bug #460856)
  541.  
  542.  
  543.                        +o f90 compilation fails on transfer() with
  544.                          CHARACTER(*) source
  545.                          This has been fixed.  (Bug #479806)
  546.  
  547.  
  548.                        +o Internal Error : predecessors
  549.                          Under certain circumstances, the f90
  550.                          compiler would abort with the following
  551.                          error:
  552.  
  553.  
  554.                           ### fatal error                Internal Error : predecessors
  555.  
  556.  
  557.                           ### Internal Error : predecessors
  558.  
  559.                          This has been fixed.  (Bug #495858)
  560.  
  561.  
  562.                        +o -freeform with comments hang fef90
  563.                          Under certain circumstances if use of
  564.                          -freeform in f90 compilations would cause
  565.                          the compilation to hang.  This has been
  566.                          fixed.  (Bug #512153)
  567.  
  568.  
  569.  
  570.  
  571.  
  572.  
  573.  
  574.  
  575.  
  576.  
  577.  
  578.  
  579.  
  580.  
  581.  
  582.  
  583.  
  584.  
  585.  
  586.  
  587.  
  588.  
  589.  
  590.  
  591.  
  592.  
  593.  
  594.